Option Explicit
Sub C_Sample023()
    Dim myRng As Range
    Set myRng = Range("A2")					'Nxs
    With myRng.Validation
        .Delete
        .Add xlValidateList, Formula1:="1,2,3,4"
    End With
    Set myRng = Nothing						'
End Sub

